#Protokoll zum 3.07.2013
#Melanie Westenberg
# Plotten Koordinaten der Fußballvereine (Deutschlandkarte)

## Was habe ich versucht?
# Zunächst folgende Pakete geladen

library(ggmap)
library(rworldmap)
library(mapproj)
library(maptools)

# Anzeigen Deutschlandkarte
Germany <- map("world", regions = "Germany")

# Raster Koordianten -> zur Orientierung ganz gut
map.grid(Germany)

# Punkte (Koordianten, allerdings nur mit einem Buchstaben darstellbar)
points(mapproject(list(y=51.29,x=7.27)), pch="D")
points(mapproject(list(y=48.8,x=11.34)), pch="M")

# Legende erstellen
legend("bottom", "D = Borussia Dortmund", pch = 1, title = "Clubnames")

# Evtl. einfacher darzustellen, wenn alle Clubnames mit Koordinaten 
# als .txt oder .csv eingelesen werden?

## Versuch 2: Punkte mit geom_point -> Karte wird nicht geladen
city <- c("München", "Dortmund", "Hamburg")
latitude <- c(48.8, 51.29, 53.33)
longitude <- c(11.34, 7.27, 10.0)

points <- data.frame (lon=longitude, lat=latitude)


map <- get_map(location = "Germany", source = 'stamen', maptype = 'toner')
Germany <-ggmap(map, extent = 'normal')
geom_point(data=points, col="red")

# Versuch 2 funktioniert nicht: Ladefehler bei der Karte

## Was hat funktioniert/nicht funktioniert?
# Anzeigen der Deutschlandkarte sowie der Punkte (hier bspw. D für Borussia Dortmund,
# M für Bayern München).
# Die Legende befindet sich trotz "bottom" noch in der Karte. Zudem funktioniert es nicht, dass
# beide Punkte in der Legende angezeigt werden. Auch hier evtl. Zugriff auf eine Tabelle und dann auf die Namen
# aller Vereine 
legend("bottom", legend=names("table"))

